99 POKE53265,PEEK(53265)AND239
100 POKE53280, 0:POKE53281, 1:PRINT"[147]";
101 PRINT"[150]+                                      [186]                             ";
102 PRINT"  [150]                    loadstar pRESENTS    [150]               ";
103 PRINT"               [155] "
104 PRINT"                      "
105 PRINT"[154]qgUIDEwELCOMETOTHELEADING"
106 PRINT"TELECOMMUNICATIONNETWORKFOR"
107 PRINT"THEcOMMODORE64AND128."
108 PRINT"                     "
109 PRINT"    qUANTUM lINK     [155] "
110 PRINT"[154]zzpagetH    [163][163][163][163][163][163][163][163][163][163][163][163]     [155] [146][154]TO"
111 PRINT"MEE[155]T OTHER PEOPLE.      "
112 PRINT"[154]mIKEdmmOjOHAVEYOUSEENTHENEWEST"
113 PRINT"                               "
114 PRINT"[160] a dEMO AND tERMINAL PROGRAM  [155] "
115 PRINT"[154]mOjO[160][160] FOR cOMMODORE'S OFFICIAL    [155]D"
116 PRINT"        ON-LINE SERVICE.       [155] "
117 PRINT"                               [155] "
118 PRINT"[154]cALHOO[155]N i UPLOADED IT LAST WEEK.  tHE"
119 PRINT"[154]GAMEISFANTASTIC."
120 PRINT"jIMrhELLOeVERYONE!:)"
121 PRINT"      ...[208]RESS [211][208][193][195][197] [212]O [195]ONTINUE   "
130 POKE53265,PEEK(53265)OR16
150 GETA$:IFA$<>" "THEN 150
199 POKE53265,PEEK(53265)AND239
200 POKE53280, 0:POKE53281, 1:PRINT"[147]";
201 PRINT"+                                      [186]             qUANTUM lINK     ";
202 PRINT"                                                  [152]                     ";
203 PRINT"                               --- notice[160]---                           ";
204 PRINT"                              oNCE THE qUANTUM lINK DEMO/TERMINAL     PR";
205 PRINT"OGRAM IS LOADED, YOU WILL HAVE TO     REBOOT loadstar TO RETURN TO THE  ";
206 PRINT"      MENU SYSTEM.                                                      ";
207 PRINT"                cONTINUE WITH LOADING qUANTUM lINK                      ";
208 PRINT"                        qUIT AND RETURN TO loadstar                     ";
209 PRINT"                             (pLEASE MAKE YOUR SELECTION WITH THE     cr";
210 PRINT"sr KEYS AND PRESS f1 WHEN READY.)                                       ";
211 PRINT"   [154]                                   "
215 POKE53265,PEEK(53265)OR16
220 PO=1:PO$="":AD$=""
225 PRINTPO$AD$"[152][186]"
230 GETA$:IFA$=""THEN230
231 IFA$=""ANDPO=1ORA$="[145]"ANDPO=1THENPO=2:PRINTPO$AD$"[152] [146]":AD$="":GOTO 225
235 IFA$=""ANDPO=2ORA$="[145]"ANDPO=2THENPO=1:PRINTPO$AD$"[152] [146]":AD$="":GOTO225
245 IFA$="[133]"THEN 250
248 GOTO 230
250 PRINT"";
260 FORX=1TO15:PRINT"[160]                                       [145][145]";:NEXT
265 ON PO GOTO270,300
270 PRINT"[152]";:FORD=1TO100:NEXT
280 PRINT"                                        [146]";
281 PRINT"                                        [146]";
282 PRINT"          [208]LEASE INSERT [211][201][196][197] 4          [146]";
283 PRINT"                                        [146]";
284 PRINT"            OF [204][207][193][196][211][212][193][210] AND             [146]";
285 PRINT"                                        [146]";
286 PRINT"       PRESS ([211][208][193][195][197]) TO CONTINUE        [146]";
287 PRINT"                                        [146]";
290 GETA$:IFA$<>" "THEN290
291 OPEN15,8,15,"R0:QUANTUM=QUANTUM":INPUT#15,ER,ER$:CLOSE15:
292 PRINT"                                        [146]";
295 IFER<>63 THEN PRINT"[147]":END
297 LOAD"BOOT64",8,1
300 PRINT"[147]":OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
301 IFER<>63 THEN PRINT"[147]":END
305 LOAD"HELLO CONNECT",8,1